PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi2/delphite.exe/data.z/EDORDERS.DFM/EDORDERS.txt

Text File | 1996-08-12 | 14.9 KB | 663 lines

object EdOrderForm: TEdOrderForm
  Left = 242
  Top = 83
  HelpContext = 3
  ActiveControl = CompanyCombo
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Order Form'
  ClientHeight = 415
  ClientWidth = 478
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object HeaderPanel: TPanel
    Left = 0
    Top = 36
    Width = 478
    Height = 379
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label19: TLabel
      Left = 243
      Top = 16
      Width = 37
      Height = 13
      Caption = 'Ship To'
    end
    object Label2: TLabel
      Left = 8
      Top = 16
      Width = 29
      Height = 13
      Caption = 'Bill To'
    end
    object Label27: TLabel
      Left = 517
      Top = 141
      Width = 42
      Height = 13
      Caption = 'Discount'
    end
    object Label17: TLabel
      Left = 120
      Top = 124
      Width = 29
      Height = 13
      Caption = 'Terms'
    end
    object PaymentMethod: TLabel
      Left = 194
      Top = 124
      Width = 80
      Height = 13
      Caption = 'Payment Method'
    end
    object Label14: TLabel
      Left = 388
      Top = 124
      Width = 22
      Height = 13
      Caption = 'PO#'
    end
    object Label4: TLabel
      Left = 8
      Top = 124
      Width = 33
      Height = 13
      Caption = 'SoldBy'
    end
    object Label15: TLabel
      Left = 290
      Top = 124
      Width = 36
      Height = 13
      Caption = 'ShipVia'
    end
    object Label18: TLabel
      Left = 335
      Top = 9
      Width = 23
      Height = 13
      Caption = 'Date'
    end
    object Label28: TLabel
      Left = 174
      Top = 16
      Width = 35
      Height = 13
      Caption = 'CustNo'
    end
    object Label3: TLabel
      Left = 170
      Top = 265
      Width = 39
      Height = 13
      Caption = 'Subtotal'
    end
    object Label6: TLabel
      Left = 185
      Top = 358
      Width = 24
      Height = 13
      Caption = 'Due'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label20: TLabel
      Left = 188
      Top = 336
      Width = 21
      Height = 13
      Caption = 'Paid'
    end
    object Label5: TLabel
      Left = 177
      Top = 312
      Width = 32
      Height = 13
      Caption = 'Freight'
    end
    object Tax: TLabel
      Left = 188
      Top = 288
      Width = 21
      Height = 13
      Caption = 'Tax '
    end
    object PopupCalBtn: TSpeedButton
      Left = 444
      Top = 5
      Width = 22
      Height = 21
      Hint = 'Calendar'
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000000000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333330000003333333333333333330000003338888888888888330000003304
        0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
        000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
        FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
        F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
        000033F7777777777F4833000000330000000000003333000000333333333333
        333333000000333333333333333333000000}
      Layout = blGlyphRight
      ParentShowHint = False
      ShowHint = True
      OnClick = PickDate
    end
    object Image1: TImage
      Left = 4
      Top = 266
      Width = 105
      Height = 112
      Picture.Data = {<image000.bmp>}
    end
    object ItemsGrid: TDBGrid
      Left = 8
      Top = 163
      Width = 461
      Height = 94
      Color = clInfoBk
      Columns = <
        item
          Alignment = taLeftJustify
          ButtonStyle = cbsEllipsis
          FieldName = 'PartNo'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Width = 63
        end
        item
          ButtonStyle = cbsNone
          FieldName = 'Description'
          ReadOnly = True
          Width = 161
        end
        item
          FieldName = 'SellPrice'
          ReadOnly = True
        end
        item
          FieldName = 'Qty'
        end
        item
          FieldName = 'Discount'
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        item
          Color = clTeal
          FieldName = 'ExtPrice'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end>
      DataSource = MastData.ItemsSource
      TabOrder = 19
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = PickPartNo
      OnEditButtonClick = PickPartNo
      OnEnter = ItemsGridEnter
      OnExit = ItemsGridExit
    end
    object ShipToAdd1Edit: TDBEdit
      Left = 243
      Top = 54
      Width = 226
      Height = 21
      Ctl3D = True
      DataField = 'ShipToAddr1'
      DataSource = MastData.OrdersSource
      MaxLength = 30
      ParentCtl3D = False
      TabOrder = 9
    end
    object ShipToAdd2Edit: TDBEdit
      Left = 243
      Top = 77
      Width = 226
      Height = 21
      Ctl3D = True
      DataField = 'ShipToAddr2'
      DataSource = MastData.OrdersSource
      MaxLength = 30
      ParentCtl3D = False
      TabOrder = 10
    end
    object CustAdd1Edit: TDBEdit
      Left = 8
      Top = 54
      Width = 226
      Height = 21
      TabStop = False
      Color = clSilver
      Ctl3D = True
      DataField = 'Addr1'
      DataSource = MastData.CustByOrdSrc
      MaxLength = 30
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 3
    end
    object CustAdd2Edit: TDBEdit
      Left = 8
      Top = 77
      Width = 226
      Height = 21
      TabStop = False
      Color = clSilver
      Ctl3D = True
      DataField = 'Addr2'
      DataSource = MastData.CustByOrdSrc
      MaxLength = 30
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 4
    end
    object ShipToCompanyEdit: TDBEdit
      Left = 243
      Top = 30
      Width = 226
      Height = 21
      Ctl3D = True
      DataField = 'ShipToContact'
      DataSource = MastData.OrdersSource
      MaxLength = 20
      ParentCtl3D = False
      TabOrder = 8
    end
    object CustCityEdit: TDBEdit
      Left = 8
      Top = 100
      Width = 104
      Height = 21
      TabStop = False
      Color = clSilver
      Ctl3D = True
      DataField = 'City'
      DataSource = MastData.CustByOrdSrc
      MaxLength = 15
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 5
    end
    object CustStateEdit: TDBEdit
      Left = 114
      Top = 100
      Width = 50
      Height = 21
      TabStop = False
      Color = clSilver
      Ctl3D = True
      DataField = 'State'
      DataSource = MastData.CustByOrdSrc
      MaxLength = 20
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 6
    end
    object CustZipEdit: TDBEdit
      Left = 166
      Top = 100
      Width = 68
      Height = 21
      TabStop = False
      Color = clSilver
      Ctl3D = True
      DataField = 'Zip'
      DataSource = MastData.CustByOrdSrc
      MaxLength = 10
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 7
    end
    object ShipToCityEdit: TDBEdit
      Left = 243
      Top = 100
      Width = 104
      Height = 21
      Ctl3D = True
      DataField = 'ShipToCity'
      DataSource = MastData.OrdersSource
      MaxLength = 15
      ParentCtl3D = False
      TabOrder = 11
    end
    object ShipToStateEdit: TDBEdit
      Left = 349
      Top = 100
      Width = 50
      Height = 21
      Ctl3D = True
      DataField = 'ShipToState'
      DataSource = MastData.OrdersSource
      MaxLength = 20
      ParentCtl3D = False
      TabOrder = 12
    end
    object ShipToZipEdit: TDBEdit
      Left = 401
      Top = 100
      Width = 68
      Height = 21
      Ctl3D = True
      DataField = 'ShipToZip'
      DataSource = MastData.OrdersSource
      MaxLength = 10
      ParentCtl3D = False
      TabOrder = 13
    end
    object POEdit: TDBEdit
      Left = 388
      Top = 138
      Width = 81
      Height = 21
      DataField = 'PO'
      DataSource = MastData.OrdersSource
      MaxLength = 15
      TabOrder = 18
    end
    object TermsCombo: TDBComboBox
      Left = 121
      Top = 138
      Width = 69
      Height = 21
      DataField = 'Terms'
      DataSource = MastData.OrdersSource
      ItemHeight = 13
      Items.Strings = (
        'Prepaid'
        'Net 30'
        'COD'
        '')
      TabOrder = 15
    end
    object PaymentCombo: TDBComboBox
      Left = 195
      Top = 138
      Width = 89
      Height = 21
      DataField = 'PaymentMethod'
      DataSource = MastData.OrdersSource
      ItemHeight = 13
      Items.Strings = (
        'Cash'
        'Check'
        'Visa'
        'MC'
        'AmEx'
        'Credit')
      TabOrder = 16
    end
    object ShipViaCombo: TDBComboBox
      Left = 290
      Top = 138
      Width = 93
      Height = 21
      DataField = 'ShipVIA'
      DataSource = MastData.OrdersSource
      ItemHeight = 13
      Items.Strings = (
        'UPS'
        'US Mail'
        'Fed Ex'
        'DHL'
        'Emery')
      TabOrder = 17
    end
    object SaleDateEdit: TDBEdit
      Left = 363
      Top = 5
      Width = 77
      Height = 21
      DataField = 'SaleDate'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      TabOrder = 0
      OnDblClick = PickDate
      OnKeyPress = SaleDateEditKeyPress
    end
    object AmountPaidEdit: TDBEdit
      Left = 221
      Top = 330
      Width = 127
      Height = 21
      DataField = 'AmountPaid'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      TabOrder = 24
    end
    object TotalEdit: TDBEdit
      Left = 221
      Top = 261
      Width = 127
      Height = 21
      TabStop = False
      DataField = 'ItemsTotal'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      ReadOnly = True
      TabOrder = 20
    end
    object TaxTotalEdit: TDBEdit
      Left = 279
      Top = 284
      Width = 69
      Height = 21
      TabStop = False
      DataField = 'TaxTotal'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      ReadOnly = True
      TabOrder = 22
    end
    object FreightEdit: TDBEdit
      Left = 221
      Top = 307
      Width = 127
      Height = 21
      DataField = 'Freight'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      TabOrder = 23
    end
    object AmountDueEdit: TDBEdit
      Left = 221
      Top = 353
      Width = 127
      Height = 21
      DataField = 'AmountDue'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      TabOrder = 25
    end
    object TaxRateEdit: TDBEdit
      Left = 221
      Top = 284
      Width = 56
      Height = 21
      DataField = 'TaxRate'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      TabOrder = 21
    end
    object CloseBtn: TButton
      Left = 364
      Top = 341
      Width = 100
      Height = 27
      Cancel = True
      Caption = 'C&lose'
      ModalResult = 1
      TabOrder = 28
    end
    object CancelBtn: TButton
      Left = 364
      Top = 305
      Width = 100
      Height = 27
      Caption = '&Cancel Edits'
      Enabled = False
      TabOrder = 27
      OnClick = CancelBtnClick
    end
    object PostBtn: TButton
      Left = 364
      Top = 268
      Width = 100
      Height = 27
      Caption = '&Save Edits'
      Enabled = False
      TabOrder = 26
      OnClick = PostBtnClick
    end
    object SoldByCombo: TDBLookupComboBox
      Left = 9
      Top = 138
      Width = 107
      Height = 21
      DataField = 'EmpNo'
      DataSource = MastData.OrdersSource
      KeyField = 'EmpNo'
      ListField = 'FullName'
      ListSource = MastData.EmpsSource
      TabOrder = 14
      OnKeyPress = SoldByComboKeyPress
    end
    object CompanyCombo: TDBLookupComboBox
      Left = 8
      Top = 30
      Width = 162
      Height = 21
      DataField = 'CustNo'
      DataSource = MastData.OrdersSource
      KeyField = 'CustNo'
      ListField = 'Company'
      ListSource = MastData.CustByCompSrc
      TabOrder = 2
    end
    object CustNoEdit: TDBEdit
      Left = 172
      Top = 30
      Width = 61
      Height = 21
      Color = clBtnFace
      DataField = 'CustNo'
      DataSource = MastData.OrdersSource
      MaxLength = 0
      ReadOnly = True
      TabOrder = 1
    end
  end
  object Speedbar: TPanel
    Left = 0
    Top = 0
    Width = 478
    Height = 36
    Align = alTop
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 0
    object ModeIndicator: TLabel
      Left = 279
      Top = 9
      Width = 33
      Height = 13
      Caption = '[Mode]'
    end
    object PrintBtn: TSpeedButton
      Left = 217
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Print form image'
      Glyph.Data = {
        2A010000424D2A010000000000007600000028000000130000000F0000000100
        0400000000000000000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333F0EFF3300000000000003333F00FF37877777777777703330000030F8
        8888888888870333003330F9988888888887703F11EE37FFFFFFFFFFFFF77039
        0910330888888888888F703865F03330870000000078F03765F03333000FFFFF
        F000033865F03333330F44448033333765F033333330FFFFFF03333865F03333
        3330F4444803333765F0333333330FFFFFF0333865F033333333000000003336
        66C0333333333333333333300000}
      ParentShowHint = False
      ShowHint = True
      OnClick = PrintBtnClick
    end
    object Bevel1: TBevel
      Left = 2
      Top = 32
      Width = 474
      Height = 2
      Align = alBottom
      Shape = bsTopLine
    end
    object DBText1: TDBText
      Left = 420
      Top = 8
      Width = 49
      Height = 17
      DataField = 'OrderNo'
      DataSource = MastData.OrdersSource
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBNavBtns: TDBNavigator
      Left = 110
      Top = 3
      Width = 100
      Height = 25
      DataSource = ActiveSource
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Ctl3D = True
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object DBEditBtns: TDBNavigator
      Left = 3
      Top = 3
      Width = 100
      Height = 25
      DataSource = ActiveSource
      VisibleButtons = [nbInsert, nbDelete, nbEdit, nbRefresh]
      ParentShowHint = False
      ConfirmDelete = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object ActiveSource: TDataSource
    DataSet = MastData.Orders
    OnStateChange = ActiveSourceStateChange
    Left = 134
    Top = 369
  end
end